home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 June / 64er_Magazin_95-06_1995_Markt__Technik_de_Side_B.d64 / datei anlegen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  479b  |  14 lines
  1. 1099 rem datei anlegen/oeffnen
  2. 1100 lf=1:sa=2:dn$="adressen":rl=72:gosub1000: rem rel-datei adressen oeffnen
  3. 1110 open2,8,3,"index,s,r": rem seq-datei index zum lesen oeffnen
  4. 1120 gosub4000: rem fehlerkanal lesen
  5. 1130 if er<>0 then ad=0:goto1190: rem datei noch nicht angelegt
  6. 1135 input#2,ad: rem anzahl der datensaetze
  7. 1140 for i=1 to ad
  8. 1142 input#2,id$(i),in(i)
  9. 1144 next i: rem indexdatei lesen
  10. 1190 fl=1: rem kennzeichen 'datei im rechner'
  11. 1192 close 2: rem seq. indexdatei schliessen
  12. 1195 printchr$(13)chr$(13)tab(7)"fertig zur [196]ateneingabe."
  13. 1196 return
  14.